home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok58 / nprint / txt / trenne.def < prev    next >
Text File  |  1993-11-04  |  866b  |  32 lines
  1. DEFINITION MODULE Trenne;
  2.  
  3. (**********************************************************************
  4.  
  5.     :Program.    Trenne
  6.     :Contents.   Insert hyphens in a word (german)
  7.     :Author.     Toolbox 4 89 Matthias Uphoff (Turbo Pascal)
  8.     :Author.     Ported to M2 by Oliver Schersand
  9.     :Address.    Schillerstr 4 7805 Bötzingen
  10.     :Phone.      07663/3049
  11.     :Copyright.  Public Domain
  12.     :Language.   Modula-2
  13.     :Translator. M2Amiga AMSoft 3.3d
  14.     :History.    V1.0 11.02.1990
  15.  
  16. **********************************************************************)
  17.  
  18. PROCEDURE Trennstrich(VAR Zeile     : ARRAY OF CHAR;
  19.                           TrennChar : CHAR);
  20.  
  21. (*
  22.    Attention the file TrennTab.txt must be in devs:
  23.  
  24.    INPUT:  Zeile      A german word
  25.    INPUT:  TrennChar  the sign for the hyphen
  26.  
  27.    OUTUT: All possibel hyphens in the german word
  28. *)
  29.  
  30. END Trenne.
  31.  
  32.